home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Italian (T-1.2.2) / Altri Stack / Rapporto Spese / card_2971.txt < prev    next >
Text File  |  1988-11-22  |  5KB  |  281 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2664
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 6002
  11. -- rect: left=7 top=97 right=264 bottom=98
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 18
  17. -- style flags: 256
  18. -- line height: 30
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 6002
  25. -- rect: left=98 top=127 right=264 bottom=165
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 30
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 00
  38. -- high flags: 6002
  39. -- rect: left=164 top=127 right=264 bottom=232
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 30
  47. -- part name: 
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 00
  52. -- high flags: 6002
  53. -- rect: left=231 top=127 right=264 bottom=299
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 30
  61. -- part name: 
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 00
  66. -- high flags: 6002
  67. -- rect: left=298 top=127 right=264 bottom=366
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 30
  75. -- part name: 
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 00
  80. -- high flags: 6002
  81. -- rect: left=365 top=127 right=264 bottom=434
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 30
  89. -- part name: 
  90.  
  91.  
  92. -- part 8 (field)
  93. -- low flags: 00
  94. -- high flags: 6002
  95. -- rect: left=433 top=127 right=264 bottom=512
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 30
  103. -- part name: 
  104.  
  105.  
  106. -- part 10 (field)
  107. -- low flags: 00
  108. -- high flags: 2002
  109. -- rect: left=8 top=37 right=79 bottom=196
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 3
  114. -- text size: 18
  115. -- style flags: 256
  116. -- line height: 30
  117. -- part name: 
  118.  
  119.  
  120. -- part 9 (button)
  121. -- low flags: 00
  122. -- high flags: A003
  123. -- rect: left=441 top=277 right=320 bottom=506
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Ricalcola
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   -- imposta le variabili
  135.   set cursor to 4    --mette il cursore ad orologio
  136.   -- set lockscreen to true  --per visualizzare i cambi solo alla fine
  137.   put 4 into numberOfRows
  138.   put 7 into numberOfColumns
  139.  
  140.   -- azzera la colonna dei totali
  141.   repeat with row = 1 to numberOfRows
  142.     put 0 into line row of card field numberOfColumns
  143.   end repeat
  144.  
  145.   -- azzera la riga dei totali in basso
  146.   repeat with col = 2 to numberOfColumns+1
  147.     put 0 into line numberOfRows of card field col
  148.   end repeat
  149.  
  150.   -- Calcola i totali parziali di una riga
  151.   repeat with col = 2 to numberOfColumns-1 --somma ogni entrata
  152.     repeat with row =1 to numberOfRows-1
  153.       put line row of card field col into it --prende l'item (riga,col)
  154.       add it to line numberOfRows of card field col
  155.       add it to line row of card field numberOfColumns
  156.     end repeat
  157.   end repeat
  158.  
  159.  
  160.   -- Calcola la somma totale
  161.   repeat with  col = 2 to numberOfColumns
  162.     add line numberOfRows of card field col to line numberOfRows of card field numberOfColumns
  163.   end repeat
  164.  
  165. end mouseUp
  166.  
  167.  
  168.  
  169.  
  170. -- part 12 (field)
  171. -- low flags: 00
  172. -- high flags: 2002
  173. -- rect: left=195 top=37 right=79 bottom=509
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 18
  179. -- style flags: 0
  180. -- line height: 30
  181. -- part name: 
  182.  
  183.  
  184. -- part 13 (button)
  185. -- low flags: 00
  186. -- high flags: 2000
  187. -- rect: left=2 top=271 right=322 bottom=55
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 20098 / 20098
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: 
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   go home
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 15 (field)
  204. -- low flags: 00
  205. -- high flags: 2002
  206. -- rect: left=97 top=97 right=127 bottom=511
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 3
  211. -- text size: 18
  212. -- style flags: 256
  213. -- line height: 24
  214. -- part name: 
  215.  
  216.  
  217. -- part contents for card part 1
  218. ----- text -----
  219.  
  220. Hotel
  221. Auto
  222. Pranzi
  223. TOTALE
  224.  
  225. -- part contents for card part 3
  226. ----- text -----
  227. 10000
  228. 20000
  229. 35000
  230. 65000
  231.  
  232. -- part contents for card part 4
  233. ----- text -----
  234. 10000
  235. 32000
  236. 40000
  237. 82000
  238.  
  239. -- part contents for card part 5
  240. ----- text -----
  241. 12000
  242. 67800
  243. 20000
  244. 99800
  245.  
  246. -- part contents for card part 6
  247. ----- text -----
  248. 50000
  249. 22000
  250. 78900
  251. 150900
  252.  
  253. -- part contents for card part 7
  254. ----- text -----
  255. 10000
  256. 54000
  257. 30000
  258. 94000
  259.  
  260. -- part contents for card part 8
  261. ----- text -----
  262. 92000
  263. 195800
  264. 203900
  265. 983400
  266.  
  267. -- part contents for card part 10
  268. ----- text -----
  269. Rapporto Spese
  270.  
  271.  
  272. 0
  273. 0
  274.  
  275. -- part contents for card part 12
  276. ----- text -----
  277. Settimana del 21 Nov 1988
  278.  
  279. -- part contents for card part 15
  280. ----- text -----
  281.   Lun     Mar      Mer     Giov    Ven      Totale